Cine Live 60/Cine Live 60.iso/pc/Scripts/Compatibility.k

Text File | 1999-06-18 | 669 b | 36 lines

module oCompatibility is cPlugin
end;

class cProject
is
    release Editor:
        EditShell!cProject;
    end;
    release Runtime:
        RunShell!cProject;
    end;
has
    OffscreenDepth;
    OnscreenDepth;

    Initialize(...)
        do
            if self.OnscreenDepth = 16 then
                self.Depth := 16;
            else if self.OnscreenDepth = 32 then
                self.Depth := 32;
            end;
            if self.OnscreenFlag = false then
                self.OnscreenFlag := -1;
            else if self.OnscreenFlag = true then
                self.OnscreenFlag := 0;
            end;
            release Editor:
                self.EditShell!cProject:Initialize(...);
            end;
            release Runtime:
                self.RunShell!cProject:Initialize(...);
            end;
        end;
end;